home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presentation Library 1993 Winter / The Apple Reference & Presentations Library CD Winter 93 - Partner Edition.7z / Image.iso / Applications / Technical Publishing / Aldus PageMaker 4.2 / Aldus / PP1.5.1.RSRC / PP1.5.1.RSRC.adf / STR#_306.txt < prev    next >
Text File  |  1991-12-09  |  2KB  |  77 lines
  1. /S_CMYKIMAGE {/bits exch def/h exch def/w exch def/AsBin exch def scale
  2. /imbuf w bits mul 7 add 8 idiv string def w h bits[w 0 0 h neg 0 h]
  3. {currentfile imbuf AsBin{readstring}{readhexstring}ifelse pop}image}def
  4.  
  5.  
  6. currentfile kbuf AsBin{readstring}{readhexstring}ifelse pop invbuf}
  7. image}ifelse}def
  8.  
  9.  
  10. {{currentfile cbuf AsBin{readstring}{readhexstring}ifelse pop pop
  11. currentfile mbuf AsBin{readstring}{readhexstring}ifelse pop pop
  12. currentfile ybuf AsBin{readstring}{readhexstring}ifelse pop pop
  13.  
  14.  
  15. {currentfile mbuf AsBin{readstring}{readhexstring}ifelse pop}
  16. {currentfile ybuf AsBin{readstring}{readhexstring}ifelse pop}
  17. {currentfile kbuf AsBin{readstring}{readhexstring}ifelse pop}
  18. true 4 colorimage}
  19.  
  20.  
  21. /invbuf{0 1 2 index length 1 sub{dup 2 index exch get 255 exch sub 2 index 3 1 roll put}for}bind def
  22. w h bits[w 0 0 h neg 0 h]/colorimage where{pop
  23. {currentfile cbuf AsBin{readstring}{readhexstring}ifelse pop}
  24.  
  25.  
  26. /S_CMYKIMAGE {/bits exch def/h exch def/w exch def/AsBin exch def scale
  27. /cbuf w bits mul 7 add 8 idiv string def/mbuf cbuf length string def
  28. /ybuf cbuf length string def/kbuf cbuf length string def
  29.  
  30.  
  31. /imbuf w bits mul 4 mul 7 add 8 idiv string def
  32. w h bits [w 0 0 h neg 0 h]{currentfile imbuf AsBin {readstring}
  33. {readhexstring}ifelse pop}false 4 systemdict /colorimage get exec} def
  34.  
  35.  
  36.  
  37. /S_CMYKIMAGE {/bits exch def/h exch def/w exch def/AsBin exch def
  38.  
  39.  
  40. /imbuf w bits mul 3 mul 7 add 8 idiv string def
  41. w h bits [w 0 0 h neg 0 h] 
  42. {currentfile imbuf AsBin{readstring}{readhexstring}ifelse pop}
  43. false 3 systemdict/colorimage get exec}def
  44.  
  45.  
  46. /S_RGBIMAGE{
  47. /bits exch def /h exch def/w exch def/AsBin exch def
  48.  
  49.  
  50. w h bits [w 0 0 h neg 0 h]
  51. {currentfile imbuf AsBin{readstring}{readhexstring}ifelse pop}
  52. systemdict/image get exec}def
  53.  
  54.  
  55. /imbuf w bits mul 7 add 8 idiv string def
  56.  
  57.  
  58.  
  59. /S_IMAGEV3 {
  60. /bits exch def/h exch def/w exch def/AsBin exch def
  61.  
  62.  
  63. /imbuf w 7 add 8 idiv string def w h inv
  64. [w 0 0 h neg 0 h]{currentfile imbuf AsBin{readstring}{readhexstring}ifelse pop}
  65. systemdict/imagemask get exec}def
  66.  
  67.  
  68. /inv exch def/h exch def/w exch def/AsBin exch def
  69.  
  70.  
  71.  
  72. /S_IMAGEMASKV3 {systemdict/setgray get exec
  73.  
  74.  
  75. /S_IMAGEMASKV3 {setcmykcolor
  76.  
  77.